home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / compaq.arc / COMPAQ.UNP < prev    next >
Text File  |  1985-10-01  |  3KB  |  54 lines
  1. 10 GOSUB 430
  2. 20 'Program copyright (c) 1983 by Jim Baen
  3. 30 '
  4. 40 '
  5. 50 ' Program copyright (c) 1984 by JAMES P MORGAN
  6. 60 '                               1749 AMERICANA BLVD 23-G
  7. 70 '                               ORLANDO FLA 32809
  8. 80 '
  9. 90 ' MODIFIED TO SUPPORT 'COMPAQ' BASIC V2.0, SUCH THAT A PROGRAM
  10. 100 '  SAVE AS ',P' CAN BE LOADED AND UNPROTECTED.
  11. 110 '
  12. 120 'All persons are hereby granted all rights to this program
  13. 130 'on a NON-EXCLUSIVE basis, including the rights of copying,
  14. 140 're-sale, and incorporation in other programs that are then
  15. 150 'offered commercially.  The sole purpose of this copyright
  16. 160 'declaration is to prevent any other individual from copy-
  17. 170 'righting this program and so being able to restrict its use.
  18. 180 CLS
  19. 190 LOCATE 8,20
  20. 200 INPUT "filename";NME$
  21. 210 LOCATE 11,20
  22. 220 PRINT "Press <Enter> three times and **";NME$;"** will
  23. 230 LOCATE 12,20:                                                                   PRINT "be loaded in memory in listable form -- don't
  24. 240 LOCATE 13,20:                                                                   PRINT "forget: you must SAVE **";NME$;"** to disk if you
  25. 250 LOCATE 14,20:                                                                   PRINT "want to have it available in unprotected format.
  26. 260 LOCATE 15,20:                                                                   PRINT "Alternatively you can keep it PROTECTED, and use
  27. 270 LOCATE 16,20:                                                                   PRINT "this utility when you want to list or modify it.
  28. 280 LOCATE 19,10
  29. 290 'PRINT "Bload"+CHR$(34)+"un.p"+CHR$(34)+",1124" 'IBM PC DOS BASIC
  30. 300 PRINT "Bload"+CHR$(34)+"un.p"+CHR$(34)+",&H5CC" 'COMPAQ BASIC V2.0
  31. 310 '
  32. 320 ' COMPAQ BASIC V2.0 (GWBASIC?) APPEARS TO SAVE THE FIRST BYTE OF
  33. 330 'THE STORED DISK BASIC FILE AS A SEPARATE SINGLE BYTE AT
  34. 340 'DATA SEGMENT+&H5CC (IF PROTECTED WILL BE &HFE AT THIS LOCATION).
  35. 350 'THE 'BLOAD' CHANGES THIS PROTECTION FLAG TO AN UNPROTECED STATE.
  36. 360 ' IF U HAVE ANY PROBLEMS WITH THIS PROCEDURE PLEASE DROP A LINE
  37. 370 'TO JAMES MORGAN AT THE ABOVE ADDRESS.
  38. 380 '
  39. 390 LOCATE 17,10:                                                                   PRINT "Def Seg"
  40. 400 LOCATE 16
  41. 410 LOAD NME$
  42. 420 END
  43. 430 CLOSE
  44. 440 OPEN "un.p" FOR OUTPUT AS #1
  45. 450 CLOSE
  46. 460 KILL "un.p"
  47. 470 OPEN "R",#1,"UN.P",128
  48. 480 FIELD 1, 128 AS A$
  49. 490 LSET A$=CHR$(253)+CHR$(11)+CHR$(5)+CHR$(100)+CHR$(4)+CHR$(1)+CHR$(0)+CHR$(0)
  50. 500 PUT 1,1
  51. 510 CLOSE
  52. 520 RETURN
  53. 8 AS A$
  54. 490 LSET A$=CH